home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
db4less3.arc
/
JOB.MDX
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1990-06-16
|
10KB
|
61 lines
GAIN NOUPDATE
USE EMP.DBF AGAIN NOUPDATE IN 2 ORDER EMPID
USE JOB.DBF AGAIN NOUPDATE IN 3 ORDER JOBID
SET EXACT ON
SET FILTER TO FOUND(2) .AND. FOUND(3)
SET RELATION TO TRIM(EMPID) INTO B,JOBID INTO C
SET SKIP TO B,C
QBE___SAFE = SET("SAFETY")
QBE___CATA = SET("CATALOG")
SET SAFETY OFF
SET CATALOG OFF
GO TOP
,B->EMPID,C->JOBID
COPY TO QBE___11
USE QBE___11 NOSAVE NOUPDATE
IF RECCOUNT() > 1
SORT TO QBE___12 ON EMPID/A,JOBID/A
USE QBE___12 NOSAV
CUSTCODE
STARTDATE
JOBID
JOBDESC
TIME.DBF
EMP.DBF
JOB.DBF
CUSTCODE
BOISE
WHISPER
CUSTCODE
STARTDATE
STARTDATE
JOBID
BOI01
WHI01
JOBID
JOBDESC
Accounting Program
Tenant Tracking
JOBDESC
BOISE
BRIGHTON
BRIGHTON
GSA
LIMBER
WESTWINDS
WHISPER
BOI01
BRI01
BRI02
GSA01
LIT01
WES01
WHI01
Accounting Program
Catalog For Photographs
Class Scheduling Program
Job Costing System =
Network for Pulp Mill
Sales Force Mail File
Tenant Tracking